home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / The GIMP 2.2.8 / gimp-2.2.8-i586-setup.exe / {app} / share / gimp / 2.0 / scripts / fuzzyborder.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2005-06-30  |  4.5 KB  |  167 lines
  1. ;
  2. ; fuzzy-border
  3. ;
  4. ; Do a cool fade to a given colour at the border of an image (optional shadow)
  5. ; Will make image RGB if it isn't already.
  6. ;
  7. ; Chris Gutteridge (cjg@ecs.soton.ac.uk)
  8. ; At ECS Dept, University of Southampton, England.
  9.  
  10. ; This program is free software; you can redistribute it and/or modify
  11. ; it under the terms of the GNU General Public License as published by
  12. ; the Free Software Foundation; either version 2 of the License, or
  13. ; (at your option) any later version.
  14. ; 
  15. ; This program is distributed in the hope that it will be useful,
  16. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18. ; GNU General Public License for more details.
  19. ; 
  20. ; You should have received a copy of the GNU General Public License
  21. ; along with this program; if not, write to the Free Software
  22. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  23.  
  24. ; Define the function:
  25.  
  26. (define (script-fu-fuzzy-border    inImage
  27.                 inLayer
  28.                 inColor
  29.                 inSize
  30.                 inBlur
  31.                 inGranu
  32.                 inShadow
  33.                 inShadWeight
  34.                 inCopy
  35.                                 inFlatten
  36.     )
  37.          
  38.     (gimp-selection-all inImage)
  39.     (set! theImage (if (= inCopy TRUE)
  40.                (car (gimp-image-duplicate inImage))
  41.                        inImage)
  42.         )
  43.     (if     (>     (car (gimp-drawable-type inLayer))
  44.                        1
  45.                 )
  46.         (gimp-image-convert-rgb theImage)
  47.     )
  48.         (set! theWidth (car (gimp-image-width inImage)))
  49.     (set! theHeight (car (gimp-image-height inImage)))
  50.  
  51.     (set! theLayer (car (gimp-layer-new     theImage
  52.                         theWidth
  53.                         theHeight
  54.                         RGBA-IMAGE
  55.                         "layer 1"
  56.                         100
  57.                         NORMAL-MODE
  58.     ) ) )
  59.  
  60.     (gimp-image-add-layer theImage theLayer 0)
  61.  
  62.  
  63.         (gimp-edit-clear theLayer)
  64.     (chris-color-edge theImage theLayer inColor inSize)
  65.  
  66.     (gimp-layer-scale     theLayer
  67.                 (/ theWidth inGranu)
  68.                 (/ theHeight inGranu)
  69.                 TRUE
  70.     )
  71.  
  72.     (plug-in-spread     TRUE
  73.                 theImage
  74.                 theLayer
  75.                 (/ inSize inGranu)
  76.                 (/ inSize inGranu)
  77.     )
  78.     (chris-color-edge theImage theLayer inColor 1)
  79.     (gimp-layer-scale theLayer theWidth theHeight TRUE)
  80.     
  81.     (gimp-selection-layer-alpha theLayer)
  82.     (gimp-selection-invert theImage)
  83.     (gimp-edit-clear theLayer)
  84.     (gimp-selection-invert theImage)
  85.     (gimp-edit-clear theLayer)
  86.     (gimp-context-set-background inColor)
  87.     (gimp-edit-fill theLayer BACKGROUND-FILL)
  88.         (gimp-selection-none inImage)
  89.     (chris-color-edge theImage theLayer inColor 1)
  90.         
  91.     (if     (= inBlur TRUE)
  92.         (plug-in-gauss-rle TRUE theImage theLayer inSize TRUE TRUE)
  93.         ()
  94.     )
  95.     (if (= inShadow FALSE)
  96.         ()
  97.             (begin
  98.                 (gimp-selection-none inImage)
  99.             (gimp-image-add-layer     theImage
  100.                      (car (gimp-layer-copy     theLayer
  101.                                 FALSE
  102.                     ))
  103.                     0
  104.             )
  105.         (gimp-layer-scale     theLayer (- theWidth inSize) (- theHeight inSize) TRUE)
  106.             (gimp-desaturate theLayer)
  107.         (gimp-brightness-contrast theLayer 127 127)
  108.             (gimp-invert theLayer)
  109.         (gimp-layer-resize     theLayer
  110.                        theWidth
  111.                         theHeight
  112.                         (/ inSize 2)
  113.                         (/ inSize 2)
  114.         )
  115.         (plug-in-gauss-rle     TRUE
  116.                         theImage
  117.                         theLayer
  118.                         (/ inSize 2)
  119.                         TRUE
  120.                         TRUE
  121.         )
  122.         (gimp-layer-set-opacity theLayer inShadWeight)
  123.             )
  124.     )
  125.     (if     (= inFlatten TRUE)
  126.          (gimp-image-flatten theImage)
  127.         ()
  128.     )
  129.     (if     (= inCopy TRUE)
  130.         (begin     (gimp-image-clean-all theImage)
  131.             (gimp-display-new theImage)
  132.         )
  133.         ()
  134.     )
  135.     (gimp-displays-flush)
  136. )
  137.  
  138. (define (chris-color-edge inImage inLayer inColor inSize)
  139.           (gimp-selection-all inImage)
  140.           (gimp-selection-shrink inImage inSize)
  141.           (gimp-selection-invert inImage)
  142.       (gimp-context-set-background inColor)
  143.     (gimp-edit-fill theLayer BACKGROUND-FILL)
  144.           (gimp-selection-none inImage)
  145. )
  146.  
  147. (script-fu-register "script-fu-fuzzy-border"
  148.             _"_Fuzzy Border..."
  149.             "Fade border to chosen color"
  150.             "Chris Gutteridge"
  151.             "1998, Chris Gutteridge / ECS dept, University of Southampton, England."
  152.             "3rd April 1998"
  153.             "RGB* GRAY*"
  154.             SF-IMAGE       "The image"              0
  155.             SF-DRAWABLE    "The layer"              0
  156.             SF-COLOR      _"Color"                  '(255 255 255)
  157.             SF-ADJUSTMENT _"Border size"            '(16 1 300 1 10 0 1)
  158.             SF-TOGGLE     _"Blur border"            TRUE
  159.             SF-ADJUSTMENT _"Granularity (1 is Low)" '(4 1 16 0.25 5 2 0)
  160.             SF-TOGGLE     _"Add shadow"             FALSE
  161.             SF-ADJUSTMENT _"Shadow weight (%)"      '(100 0 100 1 10 0 0)
  162.             SF-TOGGLE     _"Work on copy"           TRUE
  163.             SF-TOGGLE     _"Flatten image"          TRUE)
  164.  
  165. (script-fu-menu-register "script-fu-fuzzy-border"
  166.              _"<Image>/Script-Fu/Decor")
  167.